home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994…tember: Reference Library / Dev.CD Sep 94.toast / Periodicals / develop / develop Issue 6 / develop 6 code / TCP / NewsWatcher / NewsWatcher 2.0d15 source / MacTCP files / dnr.c < prev    next >
Encoding:
C/C++ Source or Header  |  1992-07-27  |  7.5 KB  |  313 lines  |  [TEXT/MPS ]
  1. /*     DNR.c - DNR library for MPW
  2.  
  3.     (c) Copyright 1988-1992 by Apple Computer.  All rights reserved
  4.     
  5.     Modifications by Jim Matthews, Dartmouth College, 5/91
  6.     
  7. */
  8.  
  9. #ifndef THINK_C
  10. #include <OSUtils.h>
  11. #include <Errors.h>
  12. #include <Files.h>
  13. #include <Resources.h>
  14. #include <Memory.h>
  15. #include <CursorCtl.h>
  16. #include <Traps.h>
  17. #include <ToolUtils.h>
  18. #endif
  19.  
  20. #include <GestaltEqu.h>
  21. #include <Folders.h>
  22.  
  23. #include "MacTCPCommonTypes.h"
  24. #include "AddressXlation.h"
  25.  
  26. #ifdef    THINK_C
  27.     #define    _InitGraf    0xA86E
  28. #endif
  29.  
  30. #ifndef    _Unimplemented
  31.     #define _Unimplemented            0xA89F
  32. #endif
  33.  
  34. #ifndef    _Gestalt
  35.     #define _Gestalt        0xA1AD
  36. #endif
  37.  
  38. #define OPENRESOLVER    1L
  39. #define CLOSERESOLVER    2L
  40. #define STRTOADDR        3L
  41. #define    ADDRTOSTR        4L
  42. #define    ENUMCACHE        5L
  43. #define ADDRTONAME        6L
  44. #define    HINFO            7L
  45. #define MXINFO            8L
  46.  
  47. Handle codeHndl = nil;
  48.  
  49. OSErrProcPtr dnr = nil;
  50.  
  51. short OpenOurRF(void);
  52. TrapType GetTrapType(unsigned long theTrap);
  53. Boolean TrapAvailable(unsigned long trap);
  54. void GetSystemFolder(short *vRefNumP, long *dirIDP);
  55. void GetCPanelFolder(short *vRefNumP, long *dirIDP);
  56. short SearchFolderForDNRP(long targetType, long targetCreator, short vRefNum, long dirID);
  57. extern OSErr HInfo(char *hostName, struct returnRec *returnRecPtr, ResultProcPtr resultProc, char *userDataPtr);
  58. extern OSErr MXInfo(char *hostName, struct returnRec *returnRecPtr, ResultProcPtr resultProc, char *userDataPtr);
  59.  
  60.  
  61. TrapType GetTrapType(theTrap)
  62. unsigned long theTrap;
  63. {
  64.     if (BitAnd(theTrap, 0x0800) > 0)
  65.         return(ToolTrap);
  66.     else
  67.         return(OSTrap);
  68. }
  69.     
  70. Boolean TrapAvailable(trap)
  71. unsigned long trap;
  72. {
  73. TrapType trapType = ToolTrap;
  74. unsigned long numToolBoxTraps;
  75.  
  76.     if (NGetTrapAddress(_InitGraf, ToolTrap) == NGetTrapAddress(0xAA6E, ToolTrap))
  77.         numToolBoxTraps = 0x200;
  78.     else
  79.         numToolBoxTraps = 0x400;
  80.  
  81.     trapType = GetTrapType(trap);
  82.     if (trapType == ToolTrap) {
  83.         trap = BitAnd(trap, 0x07FF);
  84.         if (trap >= numToolBoxTraps)
  85.             trap = _Unimplemented;
  86.         }
  87.     return(NGetTrapAddress(trap, trapType) != NGetTrapAddress(_Unimplemented, ToolTrap));
  88.  
  89. }
  90.  
  91. void GetSystemFolder(short *vRefNumP, long *dirIDP)
  92. {
  93.     SysEnvRec info;
  94.     long wdProcID;
  95.     
  96.     SysEnvirons(1, &info);
  97.     if (GetWDInfo(info.sysVRefNum, vRefNumP, dirIDP, &wdProcID) != noErr) {
  98.         *vRefNumP = 0;
  99.         *dirIDP = 0;
  100.         }
  101.     }
  102.  
  103. void GetCPanelFolder(short *vRefNumP, long *dirIDP)
  104. {
  105.     Boolean hasFolderMgr = false;
  106.     long feature;
  107.     
  108.     if (TrapAvailable(_Gestalt)) if (Gestalt(gestaltFindFolderAttr, &feature) == noErr) hasFolderMgr = true;
  109.     if (!hasFolderMgr) {
  110.         GetSystemFolder(vRefNumP, dirIDP);
  111.         return;
  112.         }
  113.     else {
  114.         if (FindFolder(kOnSystemDisk, kControlPanelFolderType, kDontCreateFolder, vRefNumP, dirIDP) != noErr) {
  115.             *vRefNumP = 0;
  116.             *dirIDP = 0;
  117.             }
  118.         }
  119.     }
  120.     
  121. /* SearchFolderForDNRP is called to search a folder for files that might 
  122.     contain the 'dnrp' resource */
  123. short SearchFolderForDNRP(long targetType, long targetCreator, short vRefNum, long dirID)
  124. {
  125.     HParamBlockRec fi;
  126.     Str255 filename;
  127.     short refnum;
  128.     
  129.     fi.fileParam.ioCompletion = nil;
  130.     fi.fileParam.ioNamePtr = filename;
  131.     fi.fileParam.ioVRefNum = vRefNum;
  132.     fi.fileParam.ioDirID = dirID;
  133.     fi.fileParam.ioFDirIndex = 1;
  134.     
  135.     while (PBHGetFInfo(&fi, false) == noErr) {
  136.         /* scan system folder for driver resource files of specific type & creator */
  137.         if (fi.fileParam.ioFlFndrInfo.fdType == targetType &&
  138.             fi.fileParam.ioFlFndrInfo.fdCreator == targetCreator) {
  139.             /* found the MacTCP driver file? */
  140.             refnum = HOpenResFile(vRefNum, dirID, filename, fsRdPerm);
  141.             if (GetIndResource('dnrp', 1) == NULL)
  142.                 CloseResFile(refnum);
  143.             else
  144.                 return refnum;
  145.             }
  146.         /* check next file in system folder */
  147.         fi.fileParam.ioFDirIndex++;
  148.         fi.fileParam.ioDirID = dirID;    /* PBHGetFInfo() clobbers ioDirID */
  149.         }
  150.     return(-1);
  151. }    
  152.  
  153. /* OpenOurRF is called to open the MacTCP driver resources */
  154.  
  155. short OpenOurRF()
  156. {
  157.     short refnum;
  158.     short vRefNum;
  159.     long dirID;
  160.     
  161.     /* first search Control Panels for MacTCP 1.1 */
  162.     GetCPanelFolder(&vRefNum, &dirID);
  163.     refnum = SearchFolderForDNRP('cdev', 'ztcp', vRefNum, dirID);
  164.     if (refnum != -1) return(refnum);
  165.         
  166.     /* next search System Folder for MacTCP 1.0.x */
  167.     GetSystemFolder(&vRefNum, &dirID);
  168.     refnum = SearchFolderForDNRP('cdev', 'mtcp', vRefNum, dirID);
  169.     if (refnum != -1) return(refnum);
  170.         
  171.     /* finally, search Control Panels for MacTCP 1.0.x */
  172.     GetCPanelFolder(&vRefNum, &dirID);
  173.     refnum = SearchFolderForDNRP('cdev', 'mtcp', vRefNum, dirID);
  174.     if (refnum != -1) return(refnum);
  175.         
  176.     return -1;
  177. }
  178.  
  179. OSErr OpenResolver(fileName)
  180. char *fileName;
  181. {
  182.     short refnum;
  183.     OSErr rc;
  184.     
  185.     if (dnr != nil)
  186.         /* resolver already loaded in */
  187.         return(noErr);
  188.         
  189.     /* open the MacTCP driver to get DNR resources. Search for it based on
  190.        creator & type rather than simply file name */    
  191.     refnum = OpenOurRF();
  192.  
  193.     /* ignore failures since the resource may have been installed in the 
  194.        System file if running on a Mac 512Ke */
  195.        
  196.     /* load in the DNR resource package */
  197.     codeHndl = GetIndResource('dnrp', 1);
  198.     if (codeHndl == nil) {
  199.         /* can't open DNR */
  200.         return(ResError());
  201.         }
  202.     
  203.     DetachResource(codeHndl);
  204.     if (refnum != -1) {
  205.         CloseWD(refnum);
  206.         CloseResFile(refnum);
  207.         }
  208.         
  209.     /* lock the DNR resource since it cannot be reloated while opened */
  210.     HLock(codeHndl);
  211.     dnr = (OSErrProcPtr) *codeHndl;
  212.     
  213.     /* call open resolver */
  214.     rc = (*(OSErr(*)(long,char*))dnr)(OPENRESOLVER, fileName);
  215.     if (rc != noErr) {
  216.         /* problem with open resolver, flush it */
  217.         HUnlock(codeHndl);
  218.         DisposHandle(codeHndl);
  219.         dnr = nil;
  220.         }
  221.     return(rc);
  222.     }
  223.  
  224.  
  225. OSErr CloseResolver(void)
  226. {
  227.     if (dnr == nil)
  228.         /* resolver not loaded error */
  229.         return(notOpenErr);
  230.         
  231.     /* call close resolver */
  232.     (void) (*(OSErr(*)(long))dnr)(CLOSERESOLVER);
  233.  
  234.     /* release the DNR resource package */
  235.     HUnlock(codeHndl);
  236.     DisposHandle(codeHndl);
  237.     dnr = nil;
  238.     return(noErr);
  239. }
  240.  
  241. OSErr StrToAddr(hostName, rtnStruct, resultproc, userDataPtr)
  242. char *hostName;
  243. struct hostInfo *rtnStruct;
  244. ResultProcPtr resultproc;
  245. char *userDataPtr;
  246. {
  247.     if (dnr == nil)
  248.         /* resolver not loaded error */
  249.         return(notOpenErr);
  250.     return (*(OSErr(*)(long,char*,struct hostInfo*,ResultProcPtr,char*))dnr)
  251.         (STRTOADDR, hostName, rtnStruct, resultproc, userDataPtr);
  252. }
  253.     
  254. OSErr AddrToStr(addr, addrStr)
  255. unsigned long addr;
  256. char *addrStr;                                    
  257. {
  258.     if (dnr == nil)
  259.         /* resolver not loaded error */
  260.         return(notOpenErr);
  261.         
  262.     (*(OSErr(*)(long,unsigned long,char*))dnr)(ADDRTOSTR, addr, addrStr);
  263.     return(noErr);
  264. }
  265.     
  266. OSErr EnumCache(resultproc, userDataPtr)
  267. ResultProcPtr resultproc;
  268. char *userDataPtr;
  269. {
  270.     if (dnr == nil)
  271.         /* resolver not loaded error */
  272.         return(notOpenErr);
  273.         
  274.     return (*(OSErr(*)(long,ResultProcPtr,char*))dnr)
  275.         (ENUMCACHE, resultproc, userDataPtr);
  276. }
  277.     
  278.     
  279. OSErr AddrToName(addr, rtnStruct, resultproc, userDataPtr)
  280. ip_addr addr;
  281. struct hostInfo *rtnStruct;
  282. ResultProcPtr resultproc;
  283. char *userDataPtr;                                    
  284. {
  285.     if (dnr == nil)
  286.         /* resolver not loaded error */
  287.         return(notOpenErr);
  288.         
  289.     return (*(OSErr(*)(long,ip_addr,struct hostInfo*,ResultProcPtr,char*))dnr)
  290.         (ADDRTONAME, addr, rtnStruct, resultproc, userDataPtr);
  291. }
  292.  
  293. extern OSErr HInfo(char *hostName, struct returnRec *returnRecPtr, ResultProcPtr resultProc, char *userDataPtr)
  294. {
  295.     if (dnr == nil)
  296.         /* resolver not loaded error */
  297.         return(notOpenErr);
  298.         
  299.     return (*(OSErr(*)(long,char*,struct returnRec*,ResultProcPtr,char*))dnr)
  300.         (HINFO, hostName, returnRecPtr, resultProc, userDataPtr);
  301.  
  302.     }
  303.     
  304. extern OSErr MXInfo(char *hostName, struct returnRec *returnRecPtr, ResultProcPtr resultProc, char *userDataPtr)
  305. {
  306.     if (dnr == nil)
  307.         /* resolver not loaded error */
  308.         return(notOpenErr);
  309.         
  310.     return (*(OSErr(*)(long,char*,struct returnRec*,ResultProcPtr,char*))dnr)
  311.         (MXINFO, hostName, returnRecPtr, resultProc, userDataPtr);
  312.  
  313. }